﻿Option Explicit On

Imports System.Windows.Controls.Canvas

Public Class clsEvent
    Inherits shpPort

    Public Sub New(ByVal ancestor As Object, ByVal key As String)
        Dim pnt As New PointCollection(), shp As New Polygon()
        Init(ancestor, key)
        m_Type = c_Event
        shp.Fill = ColorEvent
        shp.Stroke = ColorStroke
        shp.StrokeThickness = 1
        pnt.Add(New Point(0, 0))
        pnt.Add(New Point(0, Height))
        pnt.Add(New Point(Width, Height))
        pnt.Add(New Point(Width, 0))
        shp.Points = pnt
        m_Shape = shp
        Container.Children.Add(m_Shape)
        m_Label.Text = "Event"
        m_Label.MoveShape(25, -15)
    End Sub
End Class
